home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 5 / Skunkware 5.iso / src / X11 / tclMotif-1.4 / programs / prog34 < prev    next >
Encoding:
Text File  |  1995-06-29  |  433 b   |  19 lines
  1. # testing simple actions andler
  2. xtAppInitialize -class Program
  3.  
  4. xmArrowButton .arrow managed
  5. # .arrow addAction Direction
  6.  
  7. .arrow setValues -translations \
  8.     "<Key>r: exec(arrow_direction %w arrow_right) \n\
  9.          <Key>l: exec(\"arrow_direction %w arrow_left\")"
  10.  
  11. proc arrow_direction {arrow direction} {
  12.   puts stdout "Changing direction to $direction"
  13.   $arrow setValues -arrowDirection $direction
  14. }
  15.  
  16. . realizeWidget
  17.  
  18. . mainLoop
  19.